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The  WAND  (Wharton  Alerting  Network  Database)  system  is 
a limited  implementation  (on  the  DEC10)  of  the  CODASYL  Data 
Base  Task  Group  April  71  Report  (DBTG) . The  principal 
differences  are  that  WAND  does  not  support  or  is  limited 
with  respect  to: 

1.  Sub-schemas. 

2.  Multiple  areas. 

3.  Privacy  locks  (only  for  entire  database)  . 

4.  Set  occurrence  selection  (only  through  current  of 
set)  . 

5.  Pointer  arrays. 

6.  Sorted  sets. 


The  Data  Definition  Language  (DDL)  is  exactly  as 
specified  in  the  DBTG  report,  as  is  the  COBOL  Data 
Manipulation  Language  (DML) . In  addition,  WAND  supports  a 
Fortran  DML  and  an  interactive  DML.  The  interactive  DML  is 
provided  by  a program  called  DBLOOK,  which  is  the  subject  of 
this  demonstration. 

DBLOOK  provides: 

1.  Interactive  DML  (to  navigate  the  database). 

2.  Interactive  access  to  the  schema  (to  provide  a map 
for  the  database  navigator) . 

3.  HELP  (to  explain  itself  and  the  DML). 

4.  Graphing  and  printing  routines  (to  prepare  data  for 
human  consumption) . 


With  these  features,  DBLOOK  is  useful  to  the: 

1.  Data  Base  Administrator  who  might  want  to  probe  the 
data  for  suspected  errors  or  other  conditions 
warranting  his  attention. 

2.  To  the  programmer  to  build  a test  database  or  to 
debug  a navigational  procedure. 

3.  To  the  student  who  is  learning  DML. 
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Demonstration  database  for  WAND  (stock  options). 

I 

i I 

I 

i 
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SCHEMA  NAME  TS  CBOE  HAT ABASE  SIZE  TS  39  PAGES 


RECORD  NAME  IS  STOCK  LOCATION  MODE  IS  CALC  USING  STNAME 
DUPLICATES  NOT  ALLOWED 

STNAME  TYPE  IS  CHARACTER  .10 
HI  TYPE  IS  REAL 
LQ  TYPE  IS  REAL 
DIO  TYPE  IS  REAL. 

RECORD  NAME  IS  OPTION  LOCATION  MODE  IS  CALC  USING  OPTPRICE 
DUPLICATES  NOT  ALLOWED 

OPTPRICE  TYPE  IS  FIXED. 

RECORD  NAME  IS  PR EM  LOCATION  MODE  IS  01 A OPTIONPREM 
PREMIUM  TYPE  IS  REAL. 

RECORD  NAME  IS  MONTH  LOCATION  MODE  IS  CALC  USING  MO 
DUPLICATES  NOT  ALLOWED 

MO  TYPE  IS  CHARACTER  5. 

RECORD  NAME  TS  ACTIVITY  LOCATION  MODE  IS  VIA  STOCKACTIV 
VOLUME  TYPE  IS  FIXED 
PRICE  TYPE  IS  REAL. 

RECORD  NAME  IS  DATE  LOCATION  MODE  IS  CALC  USING  JULIAN 
DUPLICATES  NOT  ALLOWED 

JULIAN  TYPE  IS  FIXED 
MODAYR  TYPE  IS  CHARACTER  10. 

SET  NAME  IS  OPTIONPREM  MODE  IS  CHAIN  LINKED  TO  PRIOR  ORDER  IS  LAST 
OUNEK  IS  OPTION  MEMBER  IS  PREM  LINKED  TO  OWNER. 

SET  NAME  IS  MONTHPREM  MODE  IS  CHAIN  LINKED  TO  PRIOR  ORDER  IS  LAST 
OWNER  IS  MONTH  MEMBER  IS  PREM  LINKED  TO  OWNER. 

SET  NAME  IS  ACTIVPREM  MODE  ’.IS  CHAIN  LINKED  TO  PRIOR  ORDER  IS  LAST 
OWNER  IS  ACTIVITY  MEMBER  IS  PREM  LINKED  TO  OWNER. 

SET  NAME  IS  STOCKACTIV  MODE  IS  CHAIN  LINKED  TO  PRIOR  ORDER  IS  LAST 
OWNER  IS  STOCK  MEMBER  IS  ACTIVITY  LINKED  TO  OWNER. 

SET  NAME  TS  DATEACTIV  MODE  IS  CHAIN  LINKED  TO  PRIOR  ORDER  IS  NEXT 
OWNER  IS  DATE  MEMBER  IS  ACTIVITY  LINKED  TO  OWNER. 


DDL  for  WAND  demonstration  database  (CBOE  -Chicago  Board  Op1 ions 
Exchange > . 
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- x dblobk 

Welcome  to  DBLOOK  and  WAND.  Type  HEI...P  for  info. 

* 0demo.fil 

0 HELP 

fO  GET  A LIST  OF  UAL ID  COMMANDS  TYPE  'COMMAND". 

TYPE  'EXIT'  TO  TERMINATE  EXECUTION. 

IF  YOU  WAN T INFORMATION  ABOUT  A SPECIFIC  COMMAND  TYPE 
'HELP  CCOMMAND  - ' AS  IN  'HELP  FINDO'. 

COMMANDS  MUST  BE  CONTAINED  ON  A SINGLE  LINE.  HOWEVER  TWO  OR 

MORE  COMMANDS  MAY  BE  ENTERED  IF  THEY  ARE  SEPARATED  BY  A SEMICOLON. 

0 

0 command 


COMMAND 

S ARE  < FOLLOWED  BY 

THEIR 

1 ...  E G A L A B B R E V .1 A T 1 0 N > .’ 

0 

0 COMMAND 

CO 

CURRNI 

CU 

DBCI..0S  DBC 

DBOPEN 

l.i  BO 

DELETE 

DE  DISPLAY 

01 

DO 

DO 

ELSE  EL 

ERF'STA 

ER 

EXIT 

EX  F INDAP 

FAR 

FINDC 

FC 

FINDD  FD 

FINDO 

FO 

r INDPO 

FPO  GET 

GE 

GRAPH 

OR 

HELP  H 

IF 

IF 

ITEMS 

IT  MODIFY 

M 

OD 

0 

PLOT  P 

RECORDS 

REC 

REPEAT 

REP  SETCUR 

SETC 

SETS 

SETS 

STATUS  STA 

STORE 

STO 

TO 

T 

name:  . 

OR  <TTEM>*. 

NAME> 

IS  ANY  SET.  RECORD 

OR  ITEM  NAME 

AND  THE 

SYSTEM  WILL 

DISPLAY 

S T R U C T U R A L INF 0 ft M A T 1 0 N 

ABOUT  THF  NAMED 

ENTITY. 

:item>= 

F E ft MlTS  ASSIGN ME N T 

OF  VALUES  TO 

' ITEMS. 

IN  THE 

SYNTAX  OF  THESE  COMMANDS 

CSETN  •. 

: RECN  - . 

AND  < I TMN> 

ARE  GENERIC  TERMS  FOR  SET 

NAME  • 

RECORD 

NAME  AND 

ITEM  NAME. 

WHEREVER  SUCH  A NAME  IS  REQUIRED  A VALUE  OF  0( ZERO'*  WILL 
INDICATE  A REFERENCE  TO  THE  MOST  RECENTLY  NAMED  OF  THF  SAME  TYPE. 

& 

0 help  status 

STATUS  or  STA 

Displays  the  STATUS  of  DBLOOK. 

In  GET  mode*  a record  is  directly  moved  to  work  ing  storage  following  a FIL'D. 

In  NOGET  mode  a GET  must  be  explicitly  executed  to  get  the  data. 

PROMPT  mode  will  cause  DBLOOK  to  ask  for  needed  data  values  on  STORE  or  FINDC. 
The  values  of  other  DBLOOK  parameters  are  displayed,  see  reference  manual 
for  a complete  explanation.  STATUS  can  be  changed  with  the  TO  command. 

EXAMPLE.’  STATUS  ✓ 

0 

0 help  to 

TO  CSTATUS  VAR>  <VALUE>  or  T CSTATUS  VAR  • <VALIJE>. 

This  causes  the  DBLOOK  STATUS  to  be  changed. 

If  STATUS  VAR-  is  a mode  such  as  GET.  PROMPT,  or  DISPLAY,  then  CVALUE > is  no< 
necessary . 

PROMPT  and  GET  modes  can  be  altered,  the  characters  that  function  as  QUOTE. 

SEMICOLON.  ASTERISK.  USER  DELIMITER,  and  ASSIGNMENT  can  be  changed. 

the  default  repeat  limit  can  be  changed,  and  display  formats  can  he  altered. 

EXAMPLE:  TO  PROMPT » TO  ASTERISK  J 

q 


to  comment  / 

/wo  have?  changed  comment  char  to  / 


0 

{? 

(• 


l*  statu  *» 

GET 

PROMPT 

DISPLAY 

NOLABEL 

QUOTE 


SEN  I C 
ASTERISK 
REPEAT  t 
USER 
ASSIGN 
ATSIGN 
COMMENT 
XSIZE 
/SIZE 
FIXFMT 
RtALFMT 
0 


* 

10 


0 

/ 

60 

20 

1 X » 1 1 0 ’ 

I X » F 8 < 3 r 
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0 hole  dbopen 

DBOPEN  • SCHEMA>  <PASSW>  <MO0E>  or  DBO  <SCHEMA  > <PASSW>  <MODE>. 
<SCHEMA>  is  the  schema  name1  > <PASSW>  is  the  password  for  the 
privacy  lock  r and  <M0DE>  is  0 to  read  or  1 to  update  the  database. 


example:  dbopen  cboe  o.  i 


0 

& 

0 /now  open  for  update* 

0 dbopen  cboe  0 1 

0 

0 / and  we  can  Set  some  information  out  of  the  schema* 

.0 

0 records 


STOCK 

0 

0 

OPTION 

sets 

PREM 

MONTH 

ACTIVITY 

DATE 

QPTIONPREM  STOCKACTIV 
0 i terns 

MONTHPREM 

ACTIVPREM 

DATEACTIV 

STNAME 

VOLUME 

0 

HI 

PRICE 

LO 

JULIAN 

DIV 

MODAYR 

OPTPRICE 

PREMIUM 

••»©  can  also  find  out  information 


(9 

r names  2 
i?  ' 

•?  p remi  um 

CONTAINED  IN  RREM  RECORD 

TYPE  IS  REAL  * ' 

i> 

9 p rem 

RECORD  NAME  TS  F'REM 

LOCATION  MODE  IS  OLA  OPTIONPREH 
CONTAINS  THE  FOLLOWING  ITEMS: 

PREMIUM 

MEMBER  OF  OPTIONPREM 
MEMBER  OE  MC'NTHPREM 
MEMBER  OE  ACTIVPREM 
9 

i?  active  rem 

SET  NAME  IS  ACTIVPREM  MODE  IS  CHAIN 
LINKED  TO  PRIOR 
ORDER  IS  LAST 
OWNER  IS  ACTIVITY 

MEMBER  IS  PREM  LINKED  TO  OWNER > 


about  particular  items  by  typing  + 


0 activity 

RECORD  NAME  IS  ACTIVITY 

LOCATION  MODE  IS  VIA  STOCKACTIV 
CONTAINS  THE  FOLLOWING  ITEMS: 

VOLUME  PRICE 

MEMBER  OF  STOCKACTIV 
OWNER  OF  ACTIVPREM 
MEMBER  OF  DATEACTIV 
9 

9 stock act iv 

SET  NAME  IS  STOCKACTIV  MODE  IS  CHAIN 
LINKED  TO  PRIOR- 
ORDER  IS  LAST 
OWNER  IS  STOCK- 

MEMBER  IS  ACTIVITY  LINKED  TO  OWNER. 

t? 

9 / now  we  are  doing  to  do  some  operations  on  data: 

9 / after  help,  we  list  all  stocks  on  which  we  have  information: 

Q 

9 help  f. indap  * 

F INDAP  POSI TN>  0 <RECN>  or  FAP  <POSITN>  0 <RECN>  . 

Permits  positional  find  sequentially  within  the  database. 

<POSITN  may  be  FIRST.  LAST.  NEXT r PRIOR  or  an  integer. 

IT  • RECN  is  0.  then  any  record  typ*e  may  be  found  relative  to  the  current  of 
run-unit?  otherwise  a record  of  the  named  type  is  found  relative  to  the 
current  of  that  type. 

example:  f indap  next  o employee 

e 
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© s c ock 5 f indap  first  0 stock 

RECORD  NAME  IS  STOCK 


LOCATION  MODE  IS  C 

AI..C  USING 

STNAMF 

CONTAINS 

THE  FOLLOWING 

items: 

S INANE 

HI 

LO 

DIO 

OWNER  OF 

S rOCKACT IV 

IkM 

a 

264 . 500  2 

23.375 

7 . 000 

\Z 

0 

finder  next  0 

steel'.  5 rep 

too 

HONWLL 

36 . 1 25 

32.750 

1 .400 

N SEMI 

55.375 

39.000 

0.250 

SYNTEX 

36 . 250 

28.625 

0.400 

XEROX 

68.375 

50.375 

1 . 000 

C DATA 

26.750 

17.625 

0.000 

TEX  IN 

124.000 

93.125 

1.000 

POLAR 

41.875 

31.250 

0 . 320 

ERRSTA  = 307 

ERRSTA  RESET  TO  0. 
0 
0 
© 


DUPLICATES  ARE  NOT  ALLOWED 


© / the  repeat  was  terminated  by  DBLOOK  when  ERRSTA  became  non-zero, 
& / since  DBLOOK  has  reacted  to  the  chsnae  in  ERRSTA  it  resets  it  to 
© 


;re  r 


0 

@ / next  we  generate  a report  about  a specific  stock  (SYNTEX) . 

© / but  first  we  will  use  help  to  explain  the  commands  we  are  about,  to  •. 


© 

0 help  finde 

FINDC  • RECN>  <P0SITN>  or  FC  <RECN>  <P0SITN>  . 

Finds  <RECN>  using  a calculated  key. 

POSITN  is  'FIRST'  or  'NEXT'  which  finds  next  duplicate. 

FIRST  is  assumed  if  POSITN  is  not  specified. 

Assign  value  to  CALC  key  with  <ITEM>=  command. 

In  PROMPT  mode.  DBLOOK  will  ask  for  a value  for  the  key  to  be  entered. 


EXAMPLE:  FINDC  DEPT  NEXT 

© 

© help  findeo 

FINDPO  <PQSITN>  <SETN>  <RECN>  . 

or  FPO  <P0SITN>  <SETN>  <RECN>  . 

<P0SITN>  must  have  'FIRST'.  'LAST'.  'NEXT'.  'PRIOR', 
or  'N'  as  value.  <'N'  is  a signed  ASCII  number). 

EXAMPLE:  FINDPO  FIRST  WORKS  EMPLOYEE 

0 


0 he  L e r'  m do 

EIr'Ou  -..SETW  or  FG  • .SETN 

rinds  owner  of  current  occurrence  of  SE  TN . 


E X A rt  P l.  E F I N D 0 W 0 ft  K S 

a 

9 h O I,  P cl !.  S P 1 8 V 

DISPLAY  I TMN  >/<RECN  " ♦ » » or  Dl'  I TMN  >/ -.RECi'L - ...  . 

I hi*;:  command  will  display  the*  current  values  of  any  combination 


of  items  or  records. 

example:  display  depmgr  employee  dept no 

8 


e 

STNAME 

SYNTEX 

i? 

9 

i? 

8 

0 

9 

(3 


findc  stock 
9 ..  SYNTEX 

36.250  28.625  0.400 

/ s i n ce  we  will  e p 1 i c i t .1.  y t © 11  DDL 0 0 K whi  c h i t e m s t o 
/ we  will  turn  off  the  automatic  display  feature, 
to  nodi. splay 

/ on  the  next  line  we  ask  for  all  date*  price?  volume 


d i s p 1 ay  * 


information 


fi ndpo  next 

100 

nay 

i I,  * y 6 

28.375 

May 

12?  7 6 

28.625 

MA  Y 

13?  76 

28 . 625 

MAY 

14?  76 

28.000 

MAY 

17  r 76 

27.750 

MAY 

1 8 ? 76 

27.625 

MAY 

19?  76 

27.250 

MAY 

20?  7o 

26.750 

E ft  ft  S T A = 

307 

Eft  ft  S I A = 

307 

MAY 

20?  76 

26.750 

EftRSTA  RESET 

TO  0. 

9 

0 


s t o c k as c t i v a c t i v i t y ? f i n d o d a t e a c t i v ? d i s e 1 a y m a dawr 


price* r 


9 


0 

* 


S I NAME 

i * 

ij 


0 


fc  stock 

t XEROX 

0,.ii  1 1 p p . p 1 1 

to  co in inent  / 


0 / fin.-i.lly  a more  complex  oueryj  that  has  been  p re-stored  in 

0 / in  this  ctuery  we  will  plot  on  a graph  the  stock  price  and 

0 / premium  for  JULY  options  in  XEROX. 

0 

0 help  0 

w <file-name>  or  0 -•file-name:-. 

Causes  DBLOQK  to  read  all  commands  from  the  named  file  to  its  end. 
The  default  extent  is  .DAT.  To  read  a file  which  has  no  extent* 
include  a period  after  the  file  name. 


a '*  f 1 1 e * 
the 


example:  0CF1LE 
0 

0 help  plot 

PLOT  I TMN>  < I TMN>  <CHAR>  o.r  P <ITMN>  <ITMN>  CHAR:  . 

First  item  name  value  is  X- value  and  second  item  name  value  is  Y-value 

or'  location  where  CHARacter  is  plotted* 

or  second  item  name  is  height  of  bar  for  a histogram. 

If  CHAR  is  omitted  an  asterisk  (♦)  is  plotted. 

Up  to  500  points  (200  bars)  may  be  plotted  on  a single  graph.  To  get  a print 
of  the  graph?  use  GRAPH!!  command. 


EXAMPLE.  FPO  NEXT  PRICES  STOCK* PLOT  PRICE  VOL  +* REPEAT  50* GRAPH 
(ES?  YOU  HAVE  INTERRUPTED  ME. 

TYPE  C TO  LET  ME  CONTINUE  OR  S TO  STOP  ME.*  C 

,» 

0 help  graph 

GRAPH  or  OR 

Causes  a graph  or  histogram  of  up  to  500  plotted  points  to  be  generated. 

1 he  graphing  program  will  prompt  the  user  prior  to  generating  the  graph. 

( The  user  can  control,  the  use  of  loss  on  either  axis*  and  the  range  of  each  axis 

The  physical  size  of  the  graph  is  determined  by  XSIZE  and  YS1ZE  (part  of  STATUS 
The  PLOT  command  delivers  coordinates  of  the  points  that  are  to  be  plotted. 


EXAMPLE 

I* 


0 


0 

STNAMF 

0 


0 


I 

i 


0 

0 

0 


FPO  NEXT  PRICES  ST0CKJPL0T  PRICE  VOL  * REPEAT  50* GRAPH 


fc  stock 

0 XEROX 


fpo  first  stockactiv  activity»fo  dateactiv 


]0 


I 


'#  fpo  ne':t.  activpr«m  p rem  i f o inonthprem*  i f mo.  - JUL  p Julian  premium*!  i •' 

» 1>o  ne;:l,  stock activ  act  ivit.y < fo  riateactiv*  rep 
E R R S T A - 3 0 7 

ERh SI  A ~ 307 

ERRS F A RESET  TO  0. 

ERRSTA  - .507 

ERR ST  A — 307 

ERRSTA  RESET  CO  0. 

ERRSTA  = 507 

ERRSTA  — 307 

ERRSTA  RESET  TO  0. 

ERRSTA  - 307 

ERRSTA  = 307 

ERRSTA  R El  S E T T 0 0 . 

ERRSTA  — 307 

El  R R S T A - 3 0 7 

ERRSTA  RESET  TO  0, 

ERRSTA  - 307 

ERRSTA  = 30 7 

ERRSTA  RESET  TO  0* 

E R F,  S T A — 3 0 7 

ERRSTA  ~ 307 

ERRSTA  RESET  TO  0* 

E R F:  S T A — 3 0 7 

ERRSTA  - 307 

ERRSTA  RESET  TO  0, 

ERRSTA  = 307 

ERRSTA  * 307 

ERRSTA  RESET  TO  0. 
f> 

@ A r -j  r-  h 

GRAPH  OR  HISTOGRAM  ( G H ) J G 

X VALUES  RANGE  FROM  1,32.0000  TO  Ml  .0000 

Y VALUES  RANGE  FROM  .0625000  TO  9.875000 

LOG  SCALE  AXES  <X  Y XY) 2 

LIMITS  <X  Y XY)!  XY 

X-AXIS  (LOW  HI).*  131  141 

Y-AXIS  (LOW  HI):  0 10 


I 


9 / and  we  also  plot  the  price  ;.se :i  tivit« 

(3 

S f a s t.  o c k a c t i v 

•? 

i?  t'po  next  stock  act  :iv  octivit«?fo  date  act  i v f plot  Julian  price*  re  p 
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